VERSION 5.00
Begin VB.Form Login 
   Caption         =   "Login"
   ClientHeight    =   6585
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   11490
   LinkTopic       =   "Form1"
   ScaleHeight     =   6585
   ScaleWidth      =   11490
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Height          =   375
      Left            =   360
      TabIndex        =   5
      Top             =   2400
      Width           =   375
   End
   Begin VB.CommandButton btnLogin 
      Caption         =   "Entrar"
      Height          =   375
      Left            =   5400
      TabIndex        =   4
      Top             =   4680
      Width           =   1695
   End
   Begin VB.TextBox boxPassword 
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   5400
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   3960
      Width           =   1695
   End
   Begin VB.TextBox boxUsuario 
      Height          =   285
      Left            =   5400
      TabIndex        =   0
      Top             =   3360
      Width           =   1695
   End
   Begin VB.Image Image1 
      Height          =   2310
      Left            =   360
      Picture         =   "Login.frx":0000
      Top             =   0
      Width           =   10830
   End
   Begin VB.Label lblPassword 
      Caption         =   "Password:"
      BeginProperty Font 
         Name            =   "Book Antiqua"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3960
      TabIndex        =   3
      Top             =   3960
      Width           =   1215
   End
   Begin VB.Label lblNombre 
      Caption         =   "Usuario:"
      BeginProperty Font 
         Name            =   "Book Antiqua"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3960
      TabIndex        =   2
      Top             =   3360
      Width           =   1095
   End
End
Attribute VB_Name = "Login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub conexion(ByVal usuario As String, ByVal password As String)

Set con = New ADODB.Connection      'La variable "con" esta declarada en un modulo como publica
                        'Se trata de establecer la conexion
con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; PORT=3306; User=" & usuario & "; Password=" & password & ";"
On Error Resume Next    'Si ocurre algun error saltara la siguiente instruccion
con.Open                'Inicializa el objeto

End Sub
Private Sub btnLogin_Click()
    'Variables
Dim rs As ADODB.Recordset
Dim strSQL As String, usuario As String, password As String

usuario = boxUsuario.Text
password = boxPassword.Text

If usuario = "" Or password = "" Then       'Valida que los campos no esten vacios
    MsgBox ("No ha llenado todos los campos solicitados. Por favor vuelva a intentarlo")
Else
    Call conexion(usuario, password)        'Llama a la funcion conexion pasandole los parametros del usuario

    'Valida que la conexion haya sido exitosa
    If con.State = adStateOpen Then
        MsgBox ("Conexion exitosa del usuario: " & usuario)     'Mensaje de conexion exitosa
        Login.Hide      'Desaparece el formulario "Login"
        frmMenu.Show       'Se muestra el formulario "Menu"
    Else
        'Error en caso de no haber establecido conexion
        MsgBox ("Error al acceder al sistema")
    End If
End If

End Sub


Private Sub Command1_Click()

Call conexion("root", "ricardonydia")        'Llama a la funcion conexion pasandole los parametros del usuario

Login.Hide      'Desaparece el formulario "Login"
frmMenu.Show       'Se muestra el formulario "Menu"

End Sub
